home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Plus Start Menu 1.xpl < prev    next >
Text File  |  2002-04-26  |  3KB  |  74 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\Start Menu\Common"
  5. "UIPATH 2"="Appearance\System\Microsoft Plus!"
  6. "NAME"="3D Start Menu Icons"
  7. "VERSION"="3.13"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable Microsoft Plus 3D Start Menu Icons"
  10. "TEXT 2"="Restore original Start Menu icons"
  11. "DESCRIPTION 1"="OPTION #1: This lets you enable the special 3D icons that come as part of Microsoft Plus. This will work with Windows 95 (when Microsoft Plus is installed), and should work with all versions of Windows NT, 98, 2000 and Me."
  12. "DESCRIPTION 2"="OPTION #2: This resets all changes and restores the icons to the Windows defaults. Note that if you have customized icons beforehand, you will loose some of your changes."
  13. "DESCRIPTION 3"="Note: There are no additional icons for the Favorites and Log Off items, so Windows 98/2000/ME users and those of you with the Active Desktop Update will not be able to use this style of icon."
  14. "DESCRIPTION 4"="This setting affects all users of this computer, and you will need to rebuild the icon cache for these settings to take effect."
  15. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "CONTACTURL"="http://www.xteq.com/"
  18. "COMMENT 1"="Thanks to Shaun Clarke [mailto:shaunleeclarke@hotmail.com] for the typo notics!"
  19.  
  20. BASE="HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Shell Icons"
  21.  
  22. SUB Plugin_Initialize
  23.  w=GetWinSysDir
  24.  b=FileExists(w + "cool.dll")
  25.  If b=false then
  26.   Call Disable
  27.  end if 
  28. END SUB
  29.  
  30. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  31.  ' Get user's Windows Folder
  32.  W=GetWinSysDir
  33.  
  34.  ' Which button has been clicked?
  35.   i=ElementIndex
  36.   Select Case I
  37.  
  38.  ' Find out if 'Plus!' button has been selected
  39.    Case 1
  40.  ' Change each item to relevent index in cool.dll
  41.  ' Shut Down
  42.   Call RegWriteValue(BASE & "\27", W & "COOL.DLL,7",1)
  43.  ' Undock
  44.   Call RegWriteValue(BASE & "\26", W & "COOL.DLL,32",1)
  45.  ' Suspend
  46.   Call RegWriteValue(BASE & "\25", W & "COOL.DLL,33",1)
  47.  ' Run
  48.   Call RegWriteValue(BASE & "\24", W & "COOL.DLL,5",1)
  49.  ' Help
  50.   Call RegWriteValue(BASE & "\23", W & "COOL.DLL,25",1)
  51.  ' Find
  52.   Call RegWriteValue(BASE & "\22", W & "COOL.DLL,3",1)
  53.  ' Settings
  54.   Call RegWriteValue(BASE & "\21", W & "COOL.DLL,6",1)
  55.  ' Documents
  56.   Call RegWriteValue(BASE & "\20", W & "COOL.DLL,2",1)
  57.  ' Programs
  58.   Call RegWriteValue(BASE & "\19", W & "COOL.DLL,4",1) 
  59.   
  60.  Case 2
  61.  ' Delete all values!
  62.  For y=19 To 27
  63.  p=RegReadValue(BASE & "\" & y)
  64.  if IsEmpty(p)=false then
  65.   Call RegDeleteValue(BASE & "\" & y)
  66.  end if
  67.  Next
  68.  end select
  69. END SUB
  70.  
  71. SUB Plugin_Terminate
  72. END SUB
  73.  
  74.